www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\D_select_a_label_f_zhunti_id.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<LINK href="css.css" type=text/css rel=stylesheet>
<%
dir_set="../"
%>
<!--#include file=../inc/conn.asp-->
<!--#include file=../inc/Functionb.asp-->
<!--#include file=inc/checkadmin1.asp-->
<!--#include file=../inc/ajaxLIB.asp-->
<!--#include file=../inc/functionFiless.asp-->
<!--#include file=../inc/ND_class_function.asp-->
<%
AJAXshowLoader()
%>
<%
%>
<div id="l_list" style="filter:blendTrans(duration=1); width:774px; z-index:-1;word-break:break-all;border: 1px dashed #999999;left: 3px; top: 10px; height: 50px;width:730px">
<%if request("sttep")="" then%>
<form action="D_select_a_label_f_zhunti_id.asp?sttep=2" method=post>
请选择 从cms内容管理子系统读频道数据 还是从企业站子系统里读频道数据：<br>
<input type=radio value="0" name=isqiye checked>从cms内容管理子系统里读频道数据<br>
<input type=radio value="1" name=isqiye>从企业站子系统里读频道数据<br>
<input type=submit value="下一步">
</form>
<%end if%>
<%if request("sttep")="2" then%>
<table border="1" cellpadding="0" cellspacing="0" style="word-break:break-all" width=650 >
<%
nooo=0
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
isqiye=request("isqiye")
sql="select * from [ND_channel] where is_qiye="&isqiye&" order by clng(orders) asc"
maxperpage=15
'获取自身文件名
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?sttep=2&isqiye="&trim(request("isqiye"))&"&data2="&trim(request("data2"))
set Rs=server.CreateObject("adodb.recordset")
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to maxperpage
%>
<%
if rs.eof then exit for
%>
<tr>
<td style="word-break:break-all" width=650>
频道名:<%=rs("name")%>
<%if rs("lanmu_type")<>"other" and rs("lanmu_type")<>"guestbook" and rs("lanmu_type")<>"wdan_Article" and rs("lanmu_type")<>"info_feedback" and rs("lanmu_type")<>"dan_Article" then%>
<%if rs("lanmu_type")<>"job" and rs("lanmu_type")<>"buy" and rs("lanmu_type")<>"askprod" then%>
,<input type=button onclick="hpp('<%=rs("sys_content_type_name")%>','<%=rs("lanmu_type")%>')" value="进入此频道来选择其中的一个专题">
<%end if%>
<%end if%>
</td>
</tr>
<%
rs.movenext
next
%>
<%
else
nooo=1
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>未找到……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
<tr>
<td colspan="7" align="center" height="50" >
<input type=button value="上一步" onclick="history.go(-1);">
</td>
</tr>
</table>
<%end if%>
<%if request("sttep")="3" then%>
<table border="1" cellpadding="0" cellspacing="0" style="word-break:break-all" width=650 >
<%
nooo=0
CurrentPage=replacebadchar(request("page"))
if CurrentPage="" then
CurrentPage=1
else if not IsNumeric(CurrentPage) then
CurrentPage=1
else if int(CurrentPage)<=0 then
CurrentPage=1
else
CurrentPage=replaceBadchar(request("page"))
end if
end if
end if
ctype=lcase(request("ctype"))
if ctype="article" then biao="[ND_Article_Special]"
if ctype="down" then biao="[ND_down_Special]"
if ctype="pic_or_sp" then biao="[ND_pic_or_sp_Special]"
if ctype="cp" then biao="[ND_prod_Special]"
'if ctype="dan_article" then biao="[ND_danArticle_Special]"
sql="select * from "&biao&" where sys_content_type='"&request("pdid")&"' order by clng(orders) asc"
maxperpage=15
'获取自身文件名
aryxx =split(Request.ServerVariables("SCRIPT_NAME"),"/")
fileNamexx = aryxx(ubound(aryxx))
strFileName=fileNamexx&"?sttep=3&pdid="&trim(request("pdid"))&"&ctype="&trim(request("ctype"))
set Rs=server.CreateObject("adodb.recordset")
Rs.open sql,conn,1,1
if not Rs.eof then
Rs.pagesize=MaxPerpage
totalnumber=Rs.recordcount
if totalnumber mod maxperpage=0 then
MaxPage= totalnumber \ MaxPerpage
else
MaxPage= totalnumber \ MaxPerpage+1
end if
if int(CurrentPage)>int(MaxPage) then
CurrentPage=MaxPage
else
CurrentPage=CurrentPage
end if
Rs.absolutepage=CurrentPage
for ni=1 to maxperpage
%>
<%
if rs.eof then exit for
%>
<tr>
<td style="word-break:break-all" width=650>
专题名:<%=rs("Specialname")%>,
专题的id为:<input type=text value="<%=rs("id")%>" id="zz<%=rs("id")%>"><input type=button onclick="cpp('zz<%=rs("id")%>')" value="复制此专题id">
</td>
</tr>
<%
rs.movenext
next
%>
<%
else
nooo=1
%>
<tr><td colspan="7" class=maintext align="center"><font color="#FF0000"><strong>未找到……</strong></font></td></tr>
<%end if
Rs.close
set Rs=nothing
%>
<tr>
<td colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
</tr>
<tr>
<td colspan="7" align="center" height="50" >
<font color=#ff0000 style="font-size:14px">
给 某个标签参数设置具体值时要注意引号的使用，如果给某个标签参数设置具体值为 article_id35 后编译运行出错或出现异常(比如调不出内容,总显示为空)，此时把这个标签参数具体值设置为"article_id35"看看，即加个引号
,或者如果因为有引号而编译运行出错，则去掉引号再编译运行看看
<br>
dreamweaver里编辑一个模板等时，如果在设计模式下而不是在代码模式下输入了 "号 到标签参数里或复制某个含"号的标签过来，会出错，因为 "号会被自动转为& quot;再放到代码里，所以要在代码模式下输入"号才行，不然出错
</font>
<br>
<input type=button value="上一步" onclick="history.go(-1);">
</td>
</tr>
</table>
<%end if%>
</div>
<script language=javascript>
function cpp(iid){
var tty=document.getElementById(iid).value;
window.clipboardData.setData("Text",tty);
alert("复制成功，请右键粘贴到 某个参数的 输入框里. \n\n给 某个标签参数设置具体值时要注意引号的使用，如果给某个标签参数设置具体值为 article_id35 后编译运行出错或出现异常(比如调不出内容,总显示为空)，此时把这个标签参数具体值设置为\"article_id35\"看看，即加个引号\n,或者如果因为有引号而编译运行出错，则去掉引号再编译运行看看\n,dreamweaver里编辑一个模板等时，如果在设计模式下而不是在代码模式下输入了 \"号 到标签参数里或复制某个含\"号的标签过来，会出错，因为 \"号会被自动转为"再放到代码里，所以要在代码模式下输入\"号才行，不然出错");
window.close();
}
</script>
<script language=javascript>
function hpp(iid,tt){
self.location="D_select_a_label_f_zhunti_id.asp?sttep=3&pdid="+iid+"&ctype="+tt;
}
</script>
<script language=javascript>
AJAXfade(1,'l_list');
</script>
<%
AJAXcloseLoader()
%>